home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / h / highspeedpascalv2.0b.dms / highspeedpascalv2.0b.adf / Interface / FileSystem.pas < prev    next >
Pascal/Delphi Source File  |  1992-01-16  |  4KB  |  171 lines
  1. Unit FileSystem;
  2.  
  3. Interface
  4. Uses AmigaDOS, Exec;
  5.  
  6. Type
  7.   tFileSysEntry = Record
  8.           fse_Node: tNode;
  9.           fse_DosType: LongInt;
  10.           fse_Version: LongInt;
  11.           fse_PatchFlags: LongInt;
  12.           fse_Type: LongInt;
  13.           fse_Task: LongInt;
  14.           fse_Lock: LongInt;
  15.           fse_Handler: LongInt;
  16.           fse_StackSize: LongInt;
  17.           fse_Priority: LongInt;
  18.           fse_Startup: LongInt;
  19.           fse_SegList: LongInt;
  20.           fse_GlobalVec: LongInt;
  21.         End;
  22.  
  23.   tFileSysResource = Record
  24.           fsr_Node: tNode;
  25.           fsr_Creator: pShortInt;
  26.           fsr_FileSysEntries: tList;
  27.         End;
  28.  
  29.   tPartitionBlock = Record
  30.           pb_ID: LongInt;
  31.           pb_SummedLongs: LongInt;
  32.           pb_ChkSum: LongInt;
  33.           pb_HostID: LongInt;
  34.           pb_Next: LongInt;
  35.           pb_Flags: LongInt;
  36.           pb_Reserved1: Array [0..1] of LongInt;
  37.           pb_DevFlags: LongInt;
  38.           pb_DriveName: Array [0..31] of ShortInt;
  39.           pb_Reserved2: Array [0..14] of LongInt;
  40.           pb_Environment: Array [0..16] of LongInt;
  41.           pb_EReserved: Array [0..14] of LongInt;
  42.         End;
  43.  
  44.   pBadBlockEntry = ^tBadBlockEntry;
  45.   tBadBlockEntry = Record
  46.           bbe_BadBlock: LongInt;
  47.           bbe_GoodBlock: LongInt;
  48.         End;
  49.  
  50.   tBadBlockBlock = Record
  51.           bbb_ID: LongInt;
  52.           bbb_SummedLongs: LongInt;
  53.           bbb_ChkSum: LongInt;
  54.           bbb_HostID: LongInt;
  55.           bbb_Next: LongInt;
  56.           bbb_Reserved: LongInt;
  57.           bbb_BlockPairs: Array [0..60] of tBadBlockEntry;
  58.         End;
  59.  
  60.   tLoadSegBlock = Record
  61.           lsb_ID: LongInt;
  62.           lsb_SummedLongs: LongInt;
  63.           lsb_ChkSum: LongInt;
  64.           lsb_HostID: LongInt;
  65.           lsb_Next: LongInt;
  66.           lsb_LoadData: Array [0..122] of LongInt;
  67.         End;
  68.  
  69.   tFileSysHeaderBlock = Record
  70.           fhb_ID: LongInt;
  71.           fhb_SummedLongs: LongInt;
  72.           fhb_ChkSum: LongInt;
  73.           fhb_HostID: LongInt;
  74.           fhb_Next: LongInt;
  75.           fhb_Flags: LongInt;
  76.           fhb_Reserved1: Array [0..1] of LongInt;
  77.           fhb_DosType: LongInt;
  78.           fhb_Version: LongInt;
  79.           fhb_PatchFlags: LongInt;
  80.           fhb_Type: LongInt;
  81.           fhb_Task: LongInt;
  82.           fhb_Lock: LongInt;
  83.           fhb_Handler: LongInt;
  84.           fhb_StackSize: LongInt;
  85.           fhb_Priority: LongInt;
  86.           fhb_Startup: LongInt;
  87.           fhb_SegListBlocks: LongInt;
  88.           fhb_GlobalVec: LongInt;
  89.           fhb_Reserved2: Array [0..22] of LongInt;
  90.           fhb_Reserved3: Array [0..20] of LongInt;
  91.         End;
  92.  
  93.   tRigidDiskBlock = Record
  94.           rdb_ID: LongInt;
  95.           rdb_SummedLongs: LongInt;
  96.           rdb_ChkSum: LongInt;
  97.           rdb_HostID: LongInt;
  98.           rdb_BlockBytes: LongInt;
  99.           rdb_Flags: LongInt;
  100.           rdb_BadBlockList: LongInt;
  101.           rdb_PartitionList: LongInt;
  102.           rdb_FileSysHeaderList: LongInt;
  103.           rdb_DriveInit: LongInt;
  104.           rdb_Reserved1: Array [0..5] of LongInt;
  105.           rdb_Cylinders: LongInt;
  106.           rdb_Sectors: LongInt;
  107.           rdb_Heads: LongInt;
  108.           rdb_Interleave: LongInt;
  109.           rdb_Park: LongInt;
  110.           rdb_Reserved2: Array [0..2] of LongInt;
  111.           rdb_WritePreComp: LongInt;
  112.           rdb_ReducedWrite: LongInt;
  113.           rdb_StepRate: LongInt;
  114.           rdb_Reserved3: Array [0..4] of LongInt;
  115.           rdb_RDBBlocksLo: LongInt;
  116.           rdb_RDBBlocksHi: LongInt;
  117.           rdb_LoCylinder: LongInt;
  118.           rdb_HiCylinder: LongInt;
  119.           rdb_CylBlocks: LongInt;
  120.           rdb_AutoParkSeconds: LongInt;
  121.           rdb_Reserved4: Array [0..1] of LongInt;
  122.           rdb_DiskVendor: Array [0..7] of ShortInt;
  123.           rdb_DiskProduct: Array [0..15] of ShortInt;
  124.           rdb_DiskRevision: Array [0..3] of ShortInt;
  125.           rdb_ControllerVendor: Array [0..7] of ShortInt;
  126.           rdb_ControllerProduct: Array [0..15] of ShortInt;
  127.           rdb_ControllerRevision: Array [0..3] of ShortInt;
  128.           rdb_Reserved5: Array [0..9] of LongInt;
  129.         End;
  130.  
  131.   tBootBlock = Record
  132.           bb_id: Array [0..3] of ShortInt;
  133.           bb_chksum: LongInt;
  134.           bb_dosblock: LongInt;
  135.         End;
  136.  
  137.  
  138.  
  139. Const
  140.   IDNAME_PARTITION = $50415254;
  141.   FSRNAME = 'FileSystem.resource';
  142.   IDNAME_LOADSEG = $4C534547;
  143.   PBFB_NOMOUNT = $1;
  144.   PBFF_NOMOUNT = $14;
  145.   BBNAME_DOS = $444F5300;
  146.   RDBFB_LAST = $0;
  147.   RDBFF_LAST = $10;
  148.   PBFB_BOOTABLE = $0;
  149.   PBFF_BOOTABLE = $A;
  150.   RDBFB_CTRLRID = $5;
  151.   RDBFB_LASTTID = $2;
  152.   RDBFF_CTRLRID = $200;
  153.   RDBFF_LASTTID = $40;
  154.   RDB_LOCATION_LIMIT = $10;
  155.   IDNAME_BADBLOCK = $42414442;
  156.   RDBFB_DISKID = $4;
  157.   IDNAME_FILESYSHEADER = $46534844;
  158.   IDNAME_RIGIDDISK = $5244534B;
  159.   RDBFF_DISKID = $100;
  160.   RDBFB_LASTLUN = $1;
  161.   BOOTSECTS = $2;
  162.   RDBFF_LASTLUN = $20;
  163.   RDBFB_NORESELECT = $3;
  164.   RDBFF_NORESELECT = $80;
  165.   BBNAME_KICK = $4B49434B;
  166.  
  167.  
  168.  
  169.  
  170. End.
  171.